perm filename RDSML.F4[PIC,LCS] blob sn#085809 filedate 1974-02-05 generic text, type T, neo UTF8
00100		SUBROUTINE READR(NNW)
01000		COMMON JXX(4000),JCNT
01100		COMMON/JOMMAC/ILINE,JLINE,KSIDE,MSIDE,NEWZ
01200
01500	CC	LOGICAL FUNCTION ADMISS
01600	CC	ADMISS(DTA)=DTA.EQ.-7.OR.(1.LE.DTA.AND.DTA.LE.10)
03500		READ(1) JCNT,(JXX(K),K=1,JCNT),ILINE,JLINE,KSIDE,MSIDE
03530		NEWZ=1
03600		END